home *** CD-ROM | disk | FTP | other *** search
- SetPatch quiet
- echo c
- echo "Fields of Glory"
- FAILAT 21
- Assign ENV: FOG1:ENV
-
- IF EXISTS ENV:BK
-
- LAB Main2
- RequestChoice >ENV:Opt "Fields of Glory" "Fields of Glory*n*n (c) 1994*n Microprose" "Play Game|Install to HD|Workbench"
-
- if $Opt EQ 1
- FOG1:fog
- endif
-
- if $Opt EQ 2
- SKIP Install
- endif
-
- ELSE
-
- LAB Main1
- RequestChoice >ENV:Opt "Fields of Glory" "Fields of Glory*n*n (c) 1994*n Microprose" "Play Game|Backup|Install to HD|Workbench"
-
- if $Opt EQ 0
- LoadWB
- EndCLI
- endif
-
- if $Opt EQ 1
- FOG1:fog
- LoadWB
- EndCLI
- endif
-
- if $Opt EQ 2
- echo "BACKING UP DISKS"
- echo " "
- LAB GetBlank1
- cd RAM:
- copy c:#? ram: QUIET
- assign c: ram:
- Assign s: ram:
- Assign ENV: ram:
- Resident DiskCopy pure
- RequestChoice >ENV:bk1 "Fields of Glory" "You will need two blank*ndisks for this operation" "OK|CANCEL"
- IF $bk1 EQ 0
- SKIP Main1 BACK
- endif
- echo "Source disk is FOG1:"
- echo " "
- DiskCopy FROM df0: TO df0:
- echo >df0:ENV/BK "Fields of Glory backup disk"
- IF ERROR
- SKIP GetBlank1 BACK
- endif
- LAB GetBlank2
- echo " "
- echo " "
- echo "Source disk is FOG2:"
- echo " "
- DiskCopy FROM df0: to df0:
- IF ERROR
- SKIP GetBlank2 BACK
- endif
- echo >FOG1:ENV/BK "Backup made"
- Assign c: FOG1:c
- Assign ENV: FOG1:ENV
- Assign s: FOG1:s
- SKIP Main2 BACK
- endif
-
- if $Opt EQ 3
- LAB Install
- RequestFile >ENV:Drawer TITLE "Select directory" DRAWERSONLY
- IF WARN
- SKIP END
- ENDIF
- resident FOG1:c/makedir pure
- resident FOG1:c/copy pure
- echo "INSTALLING TO HARD DISK"
- cd $Drawer
- IF ERROR
- SKIP Install BACK
- ENDIF
- copy FOG1:HD_Info/FOG.Info FOG.Info
- makedir FOG
- cd FOG
- cd >ENV:Drawer
- cd /
- copy FOG1:#? FOG all
- copy FOG2:#? FOG all
- echo " "
- echo "In order to run the game from the hard disk, you must add the"
- echo "following lines to your startup-sequence."
- echo " "
- echo "Assign FOG1: $Drawer"
- echo "Assign FOG2: $Drawer"
- echo " "
- ask "Press Enter to load workbench"
- ELSE
- copy $Startup s:hd_startup-sequence
- echo " "
- echo "Old hard disk startup-sequence copied to s:hd_startup-sequence"
- echo " "
- join FOG1:s/hd_start s:hd_startup-sequence AS $Startup
- wait 5
- ENDIF
- loadwb
- endcli
- endif
-
- ENDIF
-
- LAB END:
- LoadWB
- EndCLI
-